home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / PRODUCT / PRODUCT.SPR < prev    next >
Text File  |  1991-12-16  |  5KB  |  178 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/16/91             PRODUCT.SPR               15:15:03 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Application Developed in _Using FoxPro 2_               ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1991 Lisa C. Slater and Steven E. Arnott  ║
  10. *       ║ Que Publishing (800)-428-5331                           ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.currarea = SELECT()
  32.  
  33.  
  34. *       ╓─────────────────────────────────────────────────────────╖
  35. *       ║                                                         ║
  36. *       ║                    Window definitions                   ║
  37. *       ║                                                         ║
  38. *       ╙─────────────────────────────────────────────────────────╜
  39. *
  40.  
  41. IF NOT WEXIST("product")
  42.     DEFINE WINDOW product ;
  43.         FROM INT((SROW()-7)/2),INT((SCOL()-35)/2) ;
  44.         TO INT((SROW()-7)/2)+6,INT((SCOL()-35)/2)+34 ;
  45.         TITLE " PRODUCT " ;
  46.         FLOAT ;
  47.         CLOSE ;
  48.         SHADOW ;
  49.         COLOR SCHEME 1
  50. ENDIF
  51.  
  52. IF NOT WEXIST("_q1f0worhv")
  53.     DEFINE WINDOW _q1f0worhv ;
  54.         FROM INT((SROW()-16)/2),INT((SCOL()-60)/2) ;
  55.         TO INT((SROW()-16)/2)+15,INT((SCOL()-60)/2)+59 ;
  56.         FLOAT ;
  57.         NOCLOSE ;
  58.         SHADOW ;
  59.         DOUBLE ;
  60.         COLOR SCHEME 5
  61. ENDIF
  62.  
  63.  
  64. *       ╓─────────────────────────────────────────────────────────╖
  65. *       ║                                                         ║
  66. *       ║                  PRODUCT Screen Layout                  ║
  67. *       ║                                                         ║
  68. *       ╙─────────────────────────────────────────────────────────╜
  69. *
  70.  
  71. #REGION 1
  72. IF WVISIBLE("product")
  73.     ACTIVATE WINDOW product SAME
  74. ELSE
  75.     ACTIVATE WINDOW product NOSHOW
  76. ENDIF
  77. @ 1,1 SAY "Prodcode"
  78. @ 1,11 GET prodcode ;
  79.     SIZE 1,5 ;
  80.     DEFAULT " "
  81. @ 3,1 SAY "Prodname"
  82. @ 3,11 GET prodname ;
  83.     SIZE 1,20 ;
  84.     DEFAULT " "
  85.  
  86.  
  87.  
  88.  
  89. *       ╓─────────────────────────────────────────────────────────╖
  90. *       ║                                                         ║
  91. *       ║                 WIDGBOUT Screen Layout                  ║
  92. *       ║                                                         ║
  93. *       ╙─────────────────────────────────────────────────────────╜
  94. *
  95.  
  96. #REGION 2
  97. IF WVISIBLE("_q1f0worhv")
  98.     ACTIVATE WINDOW _q1f0worhv SAME
  99. ELSE
  100.     ACTIVATE WINDOW _q1f0worhv NOSHOW
  101. ENDIF
  102. @ 4,7,8,49 BOX "┌─┐│┘─└│ "
  103. @ 5,14 SAY " U S I N G   F O X P R O   2 "
  104. @ 7,10 SAY "by Lisa C. Slater and Steven E. Arnott"
  105. @ 1,11 SAY "This application was created from  "
  106. @ 2,6 SAY "the techniques and model database detailed in"
  107. @ 9,9 TO 9,50 "▀"
  108. @ 5,50 TO 8,50 PANEL
  109. @ 13,3 GET m.done ;
  110.     PICTURE "@*HN \<More;\<Done" ;
  111.     SIZE 1,6,40 ;
  112.     DEFAULT 1 ;
  113.     VALID _q1f0wostp()
  114. @ 12,22 SAY "(800) 428-5331"
  115. @ 11,20 SAY "ISBN 0-88022-703-6"
  116. @ 10,22 SAY "Que Publishing"
  117.  
  118. IF NOT WVISIBLE("_q1f0worhv")
  119.     ACTIVATE WINDOW _q1f0worhv
  120. ENDIF
  121. IF NOT WVISIBLE("product")
  122.     ACTIVATE WINDOW product
  123. ENDIF
  124.  
  125.  
  126. READ CYCLE
  127.  
  128. RELEASE WINDOW _q1f0worhv
  129. RELEASE WINDOW product
  130. SELECT (m.currarea)
  131.  
  132.  
  133. #REGION 0
  134. IF m.talkstat = "ON"
  135.     SET TALK ON
  136. ENDIF
  137. IF m.compstat = "ON"
  138.     SET COMPATIBLE ON
  139. ENDIF
  140.  
  141.  
  142. *       ╓─────────────────────────────────────────────────────────╖
  143. *       ║                                                         ║
  144. *       ║ _Q1F0WOSTP           m.done VALID                       ║
  145. *       ║                                                         ║
  146. *       ║ Function Origin:                                        ║
  147. *       ║                                                         ║
  148. *       ║ From Screen:         WIDGBOUT,     Record Number:    9  ║
  149. *       ║ Variable:            m.done                             ║
  150. *       ║ Called By:           VALID Clause                       ║
  151. *       ║ Object Type:         Push Button                        ║
  152. *       ║ Snippet Number:      1                                  ║
  153. *       ║                                                         ║
  154. *       ╙─────────────────────────────────────────────────────────╜
  155. *
  156. FUNCTION _q1f0wostp     &&  m.done VALID
  157. #REGION 2
  158. PRIVATE mrow, mcol
  159. IF m.done = 1
  160.    mrow = WLROW(WONTOP())
  161.    mcol = WLCOL(WONTOP())
  162.    DEFINE WINDOW w_about ;
  163.         FROM mrow, mcol;
  164.         TO mrow + 1 + WROWS(WONTOP()), ;
  165.            mcol + 1 + WCOLS(WONTOP()) ;
  166.         CLOSE ;
  167.         SHADOW ;
  168.         DOUBLE ;
  169.         COLOR SCHEME 5 ;
  170.         NOFLOAT NOGROW NOZOOM ;
  171.         TITLE " About The Widget Application "
  172.  
  173.   MODI FILE widgbout.txt NOMODIFY WINDOW w_about
  174.  
  175.   RELEASE WINDOW w_about
  176. ELSE
  177.   CLEAR READ
  178. ENDIF